home *** CD-ROM | disk | FTP | other *** search
/ Monster Media 1996 #15 / Monster Media Number 15 (Monster Media)(July 1996).ISO / prog_pas / cddk9605.zip / TUTOR.ZIP / TUTOR1.PAS < prev    next >
Pascal/Delphi Source File  |  1996-05-16  |  1KB  |  45 lines
  1.  
  2. PROGRAM Tutor1;
  3.  
  4. {$A+,B-,F+,I-,Q-,R-,S-,X+}
  5.  
  6. USES
  7.   Concerto, Scripts;
  8.  
  9. BEGIN
  10.  
  11. RegisterConcerto;
  12.  
  13. { Concerto doors have a built-in script interpreter with a rich
  14.   library of commands and variables.  The RegisterConcerto procedure
  15.   registers these with the interpreter.  This is one of the first
  16.   things you should do when starting your door. }
  17.  
  18.  
  19. Script('Init');
  20.  
  21. { The next step is to run the initialization script.  Drop to DOS
  22.   now and browse the file INIT.SCR.  All of those commands and
  23.   variables were activated by RegisterConcerto.
  24.  
  25.   The default extension is SCR.  Since the ScriptDir variable has not
  26.   been assigned, the initialization file must exist in the same
  27.   directory containing the EXE.  Subsequent scripts can exist in
  28.   any directory. }
  29.  
  30.  
  31. ExitDoor(0);
  32.  
  33.   { We HIGHLY suggest ending your door with this procedure.  ExitDoor
  34.     cleans up after the program.  Among other things, it resets the
  35.     video card to the original mode detected at startup, resets the
  36.     text color to lightgray over black, etc.  The single parameter is
  37.     the desired errorlevel to return to DOS.
  38.  
  39.     Don't worry too much if you forget to run this procedure.  The
  40.     actual deallocation of Concerto (i.e. memory, open files, etc)
  41.     is handled by another process invisible to your door.  You may
  42.     safely use HALT, although it may look ugly! }
  43.  
  44. END.
  45.